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UB ( ; 
= '1-003' ! File: BASINIGSB.B32 


* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 


* THIS SOFTWARE fs A gt | a UNDER A LICENSE AND MAY BE USED AND corres 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ae THE 


* INCLUSION OF THe ABOVE phd NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* TRANSFERRED. 


* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. eRPORAT tne NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MARBAARRAAAAALASALASLALILASRES ELAS ERASE SELES ESE E SESE RESET EERE REESE REET REE EEE 
' 


‘ee 


FACILITY: BASIC-PLUS-2 Frame Support 
ABSTRACT: 
These routines set up and tear down frames for SASIC“PLUS=2. 
Frames are used for main routines, external function 
external subroutines, internal functions (both DEFS. aed DEF *s) 
internal subroutines (GOSUBs) and condition handlers. 
ENVIRONMENT: VAX-11 user mode 
AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
MODIFIED BY: 


1-001 = Original. 
1-99 - Chan e BASS prefix to BASS for stack frame names. JBS 08-FEB-1979 
1-005 = Set the IV bit in the PSW if called for. JBS 11-SEP-1197 
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2 
| PA354NtT -S0sus 1i-sep-1 984 99:38:57 HBAsare Sa Seasintése 682; 


; 5 re 1! 
3 5 1. ! SWITCHES: 
i 38 33 & 
5 +4 F33 ' SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
.. 060 1! 
; 6 061 1 ! LINKAGES: 
;- © $06 1! 
>; 64 0065 1 
; 0064 1 LINKAGE 
4 6 8302 1 BASSGOSUB_LINK = CALL (STANDARD) : § 
; 67 0066 , GLOBAL (BSFSA_MAJOR_STG = 11, BSFSA_MINOR_STG = 10, BSFSA_TEMP_STG = 9), 
; @& 0068 1 BASSGOSUB_JSB = JSB : ! 
; 70 0069 1 GLOBAL (BSFSA_MAJOR_STG = 11, BSFSA_MINOR_STG = 10, BSFSA_TEMP_STG = 9) 
7 0070 1 NOTUSED (8, 7; 6, 5, 4, 3. 25 
a 0071 1 NOPRESERVE (1, 05; 
; 7 0072 #1 
3 74 0073 1! 
3 75 0074 1 ! TABLE OF CONTENTS: 
s ff 0075 1! 
: 77 0076 1 
3 78 0077 1 FORWARD ROUTINE 
$ 79 sith ; BASSINIT_GOSUB : BASSGOSUB_LINK NOVALUE; ! start GOSUB 
s 681 0080 1! 
3 0081 1 ! INCLUDE FILES: 
2 ie 0082 1! 
; 00835 1 
: oo sb 4 : REQUIRE "RTLIN:RTLPSECT'; ! macros for defing psects 
: U4 6180 : REQUIRE "RTLIN:BASFRAME'; ! Define frame structure 
oP 0384 1 LIBRARY ‘RTLSTARLE'; ! System symbols 
;s 0385 1 
; 91 0386 1! 
; 9 0387 1 ! MACROS: 
ee . 0388 1! 
; 694 389 1! NONE 
s 9 390 1! 
; &© $3 1 ! EQUATED SYMBOLS: 
is OF 0 3 1! 
3 38 O39 1! NONE 
: 94 1! 
: 100 0395 1 ! PSECTS: 
; 101 0396 1 i Ps 
3 106 att4 : DECLARE _PSECTS (BAS); ! declare psects for BASS facility 
: 104 §398 1 ! OWN STORAGE: 
s 105 0400 1! 
: 106 401 1! NONE 
: 107 8 1! 
: 108 403 1 !' EXTERNAL REFERENCES: 
: 109 406 1! 
: 110 0405 1 
: 64117 0406 1 EXTERNAL ROUTINE 


a ah 
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Be) ft 1 BASSSSIGNAL : NOVALUE, ! signals error 
; 408 : BASSHANDLER; ! handles signals 
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3 
18-se 
14-Se 
GLOBAL ROUT INE BASSINIT_GOSUB ( 

) : BASSGOSUB_LINK NOVALUE = 


tee 
FUNCTIONAL DESCRIPTION: 


Set up a frame for a SAS ICePLUS@2 GOS 
on the stack. R11, R10 and R9 are no 


! 

! 

i 

i FORMAL PARAMETERS: 
NEW_PC.ra.v PC of the GOSUB targe 
IMPLICIT INPUTS: 

; NONE 

IMPLICIT OUTPUTS: 

; NONE 

: ROUTINE VALUE: 

; NONE 

COMPLETION CODES: 

NONE 

; SIDE EFFECTS: 

! 
1 
i 
' 
! 


BASIC-PLUS=-2 code. 


These things will 
BASSEND_GSB_R8. 


BEGIN 
i The following external registers are mearly 
the compiled code. 

EXTERNAL REG 
BSFSA_ 
BSFSA_M 

T 

BUILTIN 

FP 


SP 
B1SPsw; 


'¢ 
! Define local variables as registers. 


rete Bliss-32 V4.0- 
BASRTL.SRCJBASINIGSB 


pa19be 11:59:07 


' start GOSUB 
! place to start 


UB. The frame is allocated 
t touched. 


t line. 


Leaves lots of things on the stack for use by she compiled 


be removed by 


passed through to 


We connot have any stack 
!' Locals since we manipulate the stack pointer in this routine. 


74 
-B52;1 


————__-—__-_—_---——— 


| BASSINIT_GOSUB 
8803 
s 173 467 
: 174 te8 
3; 175 “6 
s 176 470 
me Bee 
; 178 ti§ 
; 179 047 
; 180 0474 
: «181 0475 
3 4 peng 
; «(18 047 
3; 184 bee 
s 185 47 
; «(186 0480 
s 187 0481 
; 188 Bees 
3; «6189 048 
: 190 0484 
s 191 0485 
: 192 048 
3; 193 oe 
: 194 0488 
3 «6195 0489 
; 196 0490 
; 197 0491 
: 198 049 
; 199 049 
: 200 0494 
3; 201 0495 
3 $06 0496 
; 20 0497 
: 204 0498 
; 205 0499 
3 $06 0500 
; 20 0501 
3 $08 4 
: 20 050 
: 210 0504 
WE a 0505 
3 $i¢ 0506 
3 el 0507 
: 214 0508 
Be BR 
3 219 pai 
; 18 b21¢ 
; 219 051 
; $50 0514 
OME 
5 $8 0819 
: 224 0518 
3 22> 519 
; $$ 259 
: 558 b352 
; 229 $358 
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BASRTL.SRCJB 


REGISTER 
FMP : REF BLOCK (CO, BYTE] FuELe (BSF SFCD) ! pointer to FCD. 
PREV_FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD); | points to previous frame 


'¢ 
} Allocate frame control data. 


FMP = .FP; 
is SP = .FMP = BSFSK_LENFCDGSB; 
Initialize the parts of the fcd relavent to a gosub. 


FMP BSF SA_MARK] = 0; “ 
j SFSA_MAJOR_STG; 


J = .S 
rey 

FMP CBSFS$A_BASE_R10) = .BSFSA_MINOR_STG; 
,, FMP CBSFSABASE“R9] = .BSFSA_TEMP_STG; 


'¢ 
: The ‘PROCEDURE ID*' is the address of the start of the GOSUB. 


FMP CBSFSA_PROC_ID] = .NEW_PC; 


i Copy the frame flags from the previous frame. The previous 
} frame had better be a basic frame. 


PREV FMP = .FMP CBSFSA_SAVED FP]; 
FMP CBSFSW_FCD_FLAGS) = .PREV_FMP CBSF$W_FCD_FLAGS); 


i Mark this as a "'GOSUB" frame. Such frames are removed very easily 
! when, for example, returning from a condition handler. This is 

! because GOSUB has no lexical scope, and so we cannot enforce 

! well-structured programming practives which involve it. 

5 FMP CBSFSB_PROC_CODE] = BSFSK_PROC_GOSB; 

; Set the frame length field. 

FMP CBSFSB_LEN_FCD] = BSFSK_LENFCDGSB; 


‘¢ 
! Set the integer overflow interrupt enable bit in the PSW if the parent 
: frame has it set. 


IF ((.FMP CBSFSW_FCD_FLAGS] AND BSFSM_FCD_IV) NEQ 0) THEN BISPSW (ZREF (PSWSM_IV)); 


'¢ 
! Set 3 the handler address to mark this as a BASIC frame and for 
: VAX/VMS CHF. 

- 


FMP CBSFSA_HANDLER] = BASSHANDLER; 


i Branch to the compiled code. This code will call BASSEND_GSB_R8 
! rather than returning. 


AX-11 Bliss-32 V4.0-74 
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PASS NET Cosus 
1-00 


po ee 


0 0524 BASSGOSUB_JSB (.NEW_PC); 
BL, Bt pene en 
50 
5E EO 
FC 
F8 AO 
FO AO 
EC AO 
E8 Ad 04 
51 oc 
E6 AO 6 
E4 Ad 0620 
02 E6 AO 
60 000000006 
04 
Routine Size: 62 bytes, Routine Base: _BASS$COD 
232 0526 1: 
233 0527 1 END 
234 0528 1 = 
235 0529 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
_BASSCODE 62 NOVEC,NOWR 
Library Statistics 
File Total 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 


N 3 
1eaSep-1986 11:58:07 
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! of BASSINIT_GOSUB 


-TITLE BASSINIT_GOSUB 
SIDENT \1-003\ 
.EXTRN BASSSSIGNAL, BASSHANDLER 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
0000 0000 .ENTRY BASSINIT_GOSUB, hi 
as ti 00009 tg 9 Sieageay Pe mchome seca. 
AO 9E 0000 MOVAB -32(RO), SP 
AO 04 00009 CLRL <4(FMP) 
5E b0 0000¢ MOVL SP, =8(FMP 
5A 7D 00010 MOVG § BSFSA_MINOR_STG, -16(FMP) 
59 DO 00014 MOVL BSFSA_TEMP_S -20(F MP) 
AC DO 00018 MOVL W.PC, -2(F 
AO D0 0001D MOVL  12(FMPS, PREV_FMP 
Al 80 00021 MOVW  =26(PREV_FMP)> =-26(FMP) 
8F BO 900 6 MOVW #1568, -28(FMP) 
0B €1 0002C BBC #11, -26(FMP), 1$ 
20 88 00031 BISPSW 
00 9E 00033 18: MOVAB BASSHANDLER, (FMP) 
BC 16 0003A JSB @NEW_PC 
04 00030 RET 
E + 0000 
Attributes 
T, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Symbols -------- Pages Processing 
Loaded Percent Mapped Time 
1 0 581 00:01.1 


MFO MOMS OUENM— 


4 J 
BASSINIT_GOSUB 1b-se -1984 00:36: AX-11 Bliss-32 V4.0-74 Page 7 Bi 
with " 1e-8ep-19 4 90:38:39 BASRTL.SRCIBASINIGSB.B 2;1 . (3) 1: 
: COMMAND QUALIFIERS 
4 BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$ :BASINIGSB/0B)=08J$ :BASINIGSB MSRC$:BASINIGSB/UPDATE=(ENH$:BASINIGSB 
Size: 62 code + 0 data bytes 
Run Time: 00:05.5 


Elapsed Time: 0914-0 
Lines/CPU Min: 581 
Lexemes/CPU-Min: 19758 
pamee Used: 59 pages 
Compilation Complete 
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